MV - CPCEMU Disk-File Disk-Info (LIBDSK)(Track-Info  R Track-Info  R GOLF  GOLF ZDISK  !"#$%&'()*+,-DISK Z./0123456789PLUS3DOSlilTXN=:l=1192:l,9 ;"STOP THE TAPE":l  62008 5100,502,"2w",4262,45-,"3i",3825,36$,"5i",3188t ,24,"7i",2552 ,18,"9i",638~,12 ,"pt" h0,0,.1}L,1,0,0,1.1 ,.2~L,.3,.3,1,0,0,1.1 ,.3,.5,.4L,1,0,0,1.1 ,.4L,.73333,.6,1,0,0,1.1 ,.6,.9ffff,.8L,1,0,0,1.1 ,0,0,0,0,0,1,0 +"wds","bnk","rgh","fwy","wtr","grn","tee" #3000 ,6000p,3500 ,12001.,15000:,9501%,21000R,24000],27000xi,300000u,33000,36000,39502N,42000,45000ȯ,48000,510008,54000:hole random nos. $160,162,148,161,163,151,164,144,145,152,153,154,146,147,149,150 )01010101U,01110111w,00100010",10111011,11101000,10001000,01001000H,11010101 *01010101U,10101010,01010101U,10101010,01010101U,10101010,01010101U,10101010 +00001010 ,00101000(,10100000,10000010,00001010 ,00101000(,10100000,10000010 ,A0,0,0,0,0,0,0,0 -a0,00010001,11101110,0,0,01000100D,10111011,0 .Q0,0,00100010",0,0,0,00100010",0 /y0,01111100|,01111100|,001110008,00010000,00010000,00010000,00010000 0y0,00000001,00000011,00000111,00001111,00011111,00111111?,01111111 1y0,10000000,11000000,11100000,11110000,11111000,11111100,11111110 2golfer graphics 300000100,00000100,00001110,00001110,00000110,00001100 ,00001110,00001010 400000100,00000100,00001100 ,00011100,11100100,00000100,00001100 ,00001100 500100100$,00100100$,00101100,,00111100<,Track-Info  R 00001100 ,00000100,00001100 ,00010100 6a1,a2,a3,a2,a4,a5,a6,a1 7a1,a1,a5,a7,a2,a3,a8,a1 8a1,a8,a3,a2,a4,a5,a4,a1 9a1,a6,a5,a4,a9,a3,a1,a1 PNd(y,z)=(*2-1)*a(c)*y/10 *(z+14)/42* RYe(y,z)=y*(1.5@-z/568)*(.8L+.3**(z+14)/42*) U3n(x,yd)=((x-xh)*(x-xh)+(y-yh)*(y-yh)) ZCx(x)=(x/8)+1:y(xd)=22-(x/8) da(6):b(7,6):c(32 ,22):d(18):e(4,20):f(4):h(18):p(4,9 ):s(4,19):x(6) eYg$(7):n$(6,2):p$(4,4):t$(7,3):u$(7) j 3500 k 3700t n 4000 x 4300 h=1nh h=1140 4500 5000 5200P 5500| 5800 ,(s$(1)="y"5700D:340T @ 6300 T 5900  ^ 250 h  4500  62008 f$(1)="y"  7000X f$(1)="y" 0"Play again? ";y$:f$(1)="y":10  fp(p,3)<0p(p,3)>255p(p,4)<0p(p,4)>175oob=1 ,p(p,3)<1p(p,3)=1 0p(p,3)>254p(p,3)=254 ,p(p,4)<1p(p,4)=1 0p(p,4)>174p(p,4)=174 <xx=p(p,3)-p(p,1):yy=p(p,4)-p(p,2) oob=03099 Up(p,6)=p(p,6)+2:7:4,5+5*p;p(p,6)  D:" GOLF (48k)  VIRGIN GAMES":" -------------------------" :"* 48K VERSION"::"* A game for up to 4 players"::"* Up to 18 holes"::"* Change selection of holes by editing numbers in line 35 of the program" "Do you want rules?";r$ r$"y" 6:6::"* COLOURS"::"White : Tee Yellow : The Green Cyan : Water Green : Fairway Magenta : Rough Red : Bunkers Blue : Woods" ::"Balls have different markers Player 1 : x Player 2 : + Player 3 : Y Player 4 : Upside down Y" 62008 4:4:::"* Selection of clubs":" 2w : 2 wood : 200 3i : 3 iron : 172 5i : 5 iron : 145 7i : 7 iron : 128 9i : 9 iron : 100 (auto) putter : 23" i:"Above distances refer to approximate hits at strength 10 by a 28 handicap player":62008 5:5::"* HANDICAPS"::"Each player may choose a handicap between 1 and 28."::"28 corresponds to a ""duffer"", 1 to a very good player" u:"Therefore low handicaps make the course seem easier and high handicaps make it seem more difficult." Ŀ:"At the end of the game the players' handicaps are reassessed according to the Standard Scratch Score and Handicapping Scheme 1983 Details below":62008 4:4::"* ORDER OF PLAY"::"Furthest from the hole plays"::"Flashing name indicates next to play - square containing ball also flashes"::"Name displayed in inverse when ball in hole":62008 6:6::"* HOW TO PLAY"::"When your name is flashing do the following:"::"Look at terrain(under your name)"::"Select club from list at bottom of screen"::"Look at direction indicator (points towards North)" Ϫ:"Enter direction of shot on 360 degree compass":" 0 is North":" 90 is East":" 180 is South":" 270 is West (so is -90)":"Other directions between":62008 Ԑ:"* HOW TO PLAY (CONTD)"::"Enter strength 0-10 (need not bea whole number)"::"Putting strength does not have an upper limit":62008 5:5::"* PENALTIES"::"Out of bounds (edge of screen) - 2 penalty strokes"::"Ball in water - 1 penalty drop. Play as if from fairway." ::"* PUTTING"::"If ball ends up next to hole, ""PUTT GIVEN"" appears and the hole is completed automatically with one extra stroke.":"If straight into hole, ""PUTT GIVEN"" does not appear, but ballfalls into hole." 62008 4:4::"* OTHER FACTORS"::"The distance of a shot varies byup to 10%"::"The direction varies within an arc.The size of arc dependTrack-Info  R s on club and strength. E.g. 2 wood at 10 can be very inaccurate.":"Hooks (left) and slices (right) can be seen" :"The terrain affects the strength. You must use an appropriate club, e.g. 2 wood will not get you out of rough."::"Every so often a shot is duffed" 62008 :"* OTHER FACTORS (CONT'D)" :"When in a bunker there is a chance you will not get out at the first attempt"::"When getting out of the rough the length is more variable thanusual" :"Handicaps affect - length of shot - variation in length - wildness of hook/slice - ability to get out of bunkers" 62008 6:6::"* THE 1983 HANDICAPPING SYSTEM"::"Handicaps can change every round"::"First the nett differential is calculated : Actual score - par - handicap (rounded)"::"If this is > 0 your handicap goes up by .2 (or by .1 if it is 5 or under)" :"If < 0 your handicap goes down by an amount for each stroke of differential. The amount dependson the handicap and is as follows:" v" .1 for up to 5 .2 for up to 12 .3 for up to 20 .4 for up to 28" 62008  7:  x"Have you got a printer? ";f$ ye"Do you want the players' entriesto appear on the screen? (""yes"" advised for novices) ";s$ ~F"How many players are there? ";np:np<1np>43710~ >p=1np:p(p,5)=0:"Name player ";(p);p$(p) h"Handicap (1-28) player ";(p);" ";p(p,9 ):p(p,9 )>28p(p,9 )<03725 p 8"No. of holes ";nh:nh<1nh>183730 0:0 tpar=0  l:9 ,9 ;"The groundsman is preparing the hole"::" Please wait a few seconds" 'c=16:x(c),a(c),n$(c):c Pl$=n$(1)+" "+n$(2)+" "+n$(3)+" "+n$(4)+" "+n$(5) 4c=16:t=17:b(t,c):t:c t=17:t$(t):t h=118:h(h):h  Эa1=0:a2=00010000:a3=00100000 :a4=00001000:a5=00000100:a6=00000010:a7=00001010 :a8=01000000@:a9=01010000P *u(16):w=116:u(w):w w=116 +l=07:row:(u(w))+l,row:l w wg$(1)="":g$(2)="":g$(3)="":g$(4)="":g$(5)="":g$(6)="":g$(7)="" &wu$(1)="":u$(2)="":u$(3)="":u$(6)="":u$(5)="":u$(4)="":u$(7)="" / .q=1np:s(q,h-1)=p(q,6):q ^:"HOLE PAR";:q=1np:32 ;p$(q);:q::"---- ---";:q=1np:" ----";:q: gi=1nh:i;6;d(i);:q=1np:10 +(q-1)*5;s(q,i);32 ;:q::i (" ===";:q=1np:" ====";:q :"TOTAL";6;tpar;:q=1np:s(q,19)=p(q,5)+p(q,6):10 +(q-1)*5;s(q,19);:q  h(h) >y=122:x=132 :c(x,y)=4:x:y random=*10 random25020 Tx=122:limit=x:l1=(37%-13 /8*x):l1pmin5250 xpmin=p(q,6):p=q q Oq=1np:p(q,5)=p(q,5)+p(q,6):p(q,6)=0:q  +h1"Press ENTER for next hole";y$ E:y=122:x=132 :c(x,y):u$(c(x,y));:x:y a$="":5600 7:1:0,29;" ":0:1,29;" ":2,29;" ":0,30;" ":244,164:xnorth,ynorth Y0,1;"Hole ";h:1,1;length;" Yds":2,1;"Par ";par q=1np:0,5+5*q;p$(q,14):1,5+5*q;"h";p(q,9 ):3,5+5*q;p(q,5):4,5+5*q;p(q,6):q   a$="pt"5630 Rxh,yh+14:6,3:-6,3:0,-19:5640 xh,yh+1 F-1,0:0,-2:2,0:0,2 C H6p(p,7)=6a$="pt":c=6:5730b I(l$);" club? ";a$ N)c=16:n$(c)=a$5730b Xc:5705I b$"direction ";w$:w$=""5730b c@w=1̱w$:(w$(w))>579ů(w$(w))<45-5730b dw g3dir=w$:dir<-180dir>360h5730b l#"strength ";w$:w$=""5740l m@w=1̱w$:(w$(w))>579ů(w$(w))<46.5740l nw v+str=w$:str>10 a$"pt"5740l  "p(p,7)=05810 ?dmax=-1:q=1np:p(q,7)=05820 ipp3=p(q,3):pp4=p(q,4):p(q,8)=n(pp3,pp4):p(q,8)>dmaxp=q:dmax=p(q,8) q $pp3=p(p,3):pp4=p(p,4) dmax0420  7  6100 +1:0,5+5*p;p$(p) x1=x(pp3):y1=y(pp4) np(p,7)6p(p,7):1:y1-1,x1-1;" ":y1-1,x1-1;" ":0  0  pp3,pp4 p(p,7)5 #p(p,6)=p(p,6)+1 p(p,7)=4   +7:0,5+5*p;p$(p) 6p(p,1)=p(p,3):p(p,2)=p(p,4) hcap=p(p,9 ) dir=dir+dnorth*180/ arc=d(str,hcap)  dir=dir+arc str=e(str,hcap) .c=6str=str/(1.5@-hcap/568) dir=dir/180* dist=str/side*x(c)  dist=dist*b(p(p,7),c) *Jduff=*(118v-3*hcap):duff<1a$"pt"dist=dist/3 /\p(p,7)=2bunk=*(118v-3*hcap)/10 :bunk<1dist=0 17p(p,7)=3dist=dist*(*.6+.73333) 44xx=(dist*dir+.5):yy=(dist*dir+.5) ><p(p,3)=p(p,1)+xx:p(p,4)=p(p,2)+yy @ oob=0 Cep(p,3)<1p(p,3)>254p(p,4)<1p(p,4)>1743000 Ia$="pt"5980\ J6x=x(p(p,1)):y=y(p(p,2)):paper=c(x,y) KLpaper:y-1,x-1;"":502:y-1,x-1;"":i=18:.002xn,6+4*i:i:y-1,x-1;"":25:y-1,x-1;"":i=12 2-2:.002xn,6+3*i:i:y-1,x-1;"":.003xD,2:.003xD,20:.003xD,2 L%oob=0xx,yy,-arc*/180 Moob=1xx,yy N<pp3=p(p,3):pp4=p(p,4):x1=x(pp3):y1=y(pp4) O8c(x1,y1)6c(x1,y1):y1-1,x1-1;" " P pp3,pp4 Qq=p:6000p RdTrack-Info  R uff15976X S7:21,28;"DUFF":.5,-10 :.5,-14:502:w=2831:t=c(w+1,22):t:21,w;u$(t):w:c(x,y) Ty-1,x-1;"":10 :y-1,x-1;"":10 :y-1,x-1;"":10 :y-1,x-1;"":10 :y-1,x-1;"":dthrow=4 U6x579ů(w$(w))<45-6330 w 3dir=w$:dir<-180dir>360h6330 x=09 :t=c(x+1,22):21,x;t;u$(t):x:m$="strength ":21,0;7;m$:6400:x=08:t=c(x+1,22):21,x;t;u$(t):x:w$=""6340 @w=1̱w$:(w$(w))>579ů(w$(w))<46.6340 w +str=w$:str>10 a$"pt"6340  w$=""  0 =13  w$=w$+  6410  \Tf(1)=.1}L:f(2)=.2~L:f(3)=.2~L:f(4)=.2~L ]nh<6:"You haven't really played enoughholes to justify handicap adjustment. However I will give you an idea of what your handicap could be, based on the holes you have played. This is not likely to be very accurate!" bq=1np le(q,1)=s(q,19) q4e(q,11 )=(e(q,1)*18/nh+.5) ve(q,2)=tpar {4e(q,12 )=(e(q,2)*18/nh+.5) *e(q,3)=e(q,11 )-e(q,12 ) e(q,4)=p(q,9 ) (e(q,5)=e(q,3)-e(q,4) e(q,6)=4:e(q,4)20e(q,6)=3:e(q,4)12 e(q,6)=2:e(q,4)5e(q,6)=1 Be(q,7)=2:e(q,5)>0e(q,7)=1 Je(q,7)=1e(q,8)=0:e(q,9 )=f(e(q,6)) Pe(q,7)=2e(q,8)=e(q,6)/10 :e(q,9 )=0 6e(q,13 )=e(q,5)*e(q,8)+e(q,9 ) *e(q,14)=e(q,4)+e(q,13 ) 0e(q,14)>28e(q,14)=28 .e(q,14)<0e(q,14)=0 q  nh<67295 #B:" HANDICAP ADJUSTMENTS ====================" %3q=1np:3,8+5*q;p$(q):q &4q=1np:4,8+5*q;"----":q *^5,0;"HOLES":q=1np:x$=nh:7500L:5,8+5*q;x$:q 4h7,0;"SCORE":q=1np:x$=e(q,1):7500L:7,8+5*q;x$:q 9f8,0;"PAR":q=1np:x$=e(q,2):7500L:8,8+5*q;x$:q >r10 ,0;"EXTEND SCORE":q=1np:x$=e(q,11 ):7500L:10 ,8+5*q;x$:q Hp11 ,0;"EXTEND PAR":q=1np:x$=e(q,12 ):7500L:11 Track-Info  R ,8+5*q;x$:q R5q=1np:12 ,8+5*q;"----":q \o13 ,0;"GROSS DIFF":q=1np:x$=e(q,3):7500L:13 ,8+5*q;x$:q fm14,0;"HANDICAP":q=1np:x$=e(q,4):7500L:14,8+5*q;x$:q p5q=1np:15,8+5*q;"----":q zn16,0;"NETT DIFF":q=1np:x$=e(q,5):7500L:16,8+5*q;x$:q n18,0;"OLD H'CAP":q=1np:x$=e(q,4):7500L:18,8+5*q;x$:q p19,0;"ADJUSTMENT":q=1np:x$=e(q,13 ):7500L:19,8+5*q;x$:q 5q=1np:20,8+5*q;"----":q o21,0;"NEW H'CAP":q=1np:x$=e(q,14):7500L:21,8+5*q;x$:q  62008 :p=1np p$(p):"----" Te(p,13 )>0m$="Time you booked a lesson with the club professional!" Pe(p,13 )=0m$="Not a bad effort. Everything to play for next time" Oe(p,13 )<0m$="Have you got your application infor the Open yet?" $m$: )p . 62008 K Vx$4 `ex=4-x$ j"e=1ex:x$=32 +x$:e  #-hdist>1p(p,6)=p(p,6)+1:4,5+5*p;p(p,6):21,22;"PUTT GIVEN":502:x=2231:t=c(x+1,22):t:21,x;u$(t):x:7:90102# #/Jl=2080P15:1/l,-7:1/l,-20:l #241:0,5+5*p;p$(p):0 #<,p(p,7)=0:p(p,8)=0 #F 250 # Y!  Track-Info  R ]] !      PLUS3DOSlilTXN=:l=1192:l,9 ;"STOP THE TAPE":l  62008 5100,502,"2w",4262,45-,"3i",3825,36$,"5i",3188t ,24,"7i",2552 ,18,"9i",638~,12 ,"pt" h0,0,.1}L,1,0,0,1.1 ,.2~L,.3,.3,1,0,0,1.1 ,.3,.5,.4L,1,0,0,1.1 ,.4L,.73333,.6,1,0,0,1.1 ,.6,.9ffff,.8L,1,0,0,1.1 ,0,0,0,0,0,1,0 +"wds","bnk","rgh","fwy","wtr","grn","tee" #3000 ,6000p,3500 ,12001.,15000:,9501%,21000R,24000],27000xi,300000u,33000,36000,39502N,42000,45000ȯ,48000,510008,54000:hole random nos. $160,162,148,161,163,151,164,144,145,152,153,154,146,147,149,150 )01010101U,01110111w,00100010",10111011,11101000,10001000,01001000H,11010101 *01010101U,10101010,01010101U,10101010,01010101U,10101010,01010101U,10101010 +00001010 ,00101000(,10100000,10000010,00001010 ,00101000Track-Info  R (,10100000,10000010 ,A0,0,0,0,0,0,0,0 -a0,00010001,11101110,0,0,01000100D,10111011,0 .Q0,0,00100010",0,0,0,00100010",0 /y0,01111100|,01111100|,001110008,00010000,00010000,00010000,00010000 0y0,00000001,00000011,00000111,00001111,00011111,00111111?,01111111 1y0,10000000,11000000,11100000,11110000,11111000,11111100,11111110 2golfer graphics 300000100,00000100,00001110,00001110,00000110,00001100 ,00001110,00001010 400000100,00000100,00001100 ,00011100,11100100,00000100,00001100 ,00001100 500100100$,00100100$,00101100,,00111100<,00001100 ,00000100,00001100 ,00010100 6a1,a2,a3,a2,a4,a5,a6,a1 7a1,a1,a5,a7,a2,a3,a8,a1 8a1,a8,a3,a2,a4,a5,a4,a1 9a1,a6,a5,a4,a9,a3,a1,a1 PNd(y,z)=(*2-1)*a(c)*y/10 *(z+14)/42* RYe(y,z)=y*(1.5@-z/568)*(.8L+.3**(z+14)/42*) U3n(x,yd)=((x-xh)*(x-xh)+(y-yh)*(y-yh)) ZCx(x)=(x/8)+1:y(xd)=22-(x/8) da(6):b(7,6):c(32 ,22):d(18):e(4,20):f(4):h(18):p(4,9 ):s(4,19):x(6) eYg$(7):n$(6,2):p$(4,4):t$(7,3):u$(7) j 3500 k 3700t n 4000 x 4300 h=1nh h=1140 4500 5000 5200P 5500| 5800 ,(s$(1)="y"5700D:340T @ 6300 T 5900  ^ 250 h  4500  62008 f$(1)="y"  7000X f$(1)="y" 0"Play again? ";y$:f$(1)="y":10  fp(p,3)<0p(p,3)>255p(p,4)<0p(p,4)>175oob=1 ,p(p,3)<1p(p,3)=1 0p(p,3)>254p(p,3)=254 ,p(p,4)<1p(p,4)=1 0p(p,4)>174p(p,4)=174 <xx=p(p,3)-p(p,1):yy=p(p,4)-p(p,2) oob=03099 Up(p,6)=p(p,6)+2:7:4,5+5*p;p(p,6)  D:" GOLF (48k)  VIRGIN GAMES":" -------------------------" :"* 48K VERSION"::"* A game for up to 4 players"::"* Up to 18 holes"::"* Change selection of holes by editing numbers in line 35 of the program" "Do you want rules?";r$ r$"y" 6:6::"* COLOURS"::"White : Tee Yellow : The Green Cyan : Water Green : Fairway Magenta : Rough Red : Bunkers Blue : Woods" ::"Balls have different markers Player 1 : x Player 2 : + Player 3 : Y Player 4 : Upside down Y" 62008 4:4:::"* Selection of clubs":" 2w : 2 wood : 200 3i : 3 iron : 172 5i : 5 iron : 145 7i : 7 iron : 128 9i : 9 iron : 100 (auto) putter : 23" i:"Above distances refer to approximate hits at strength 10 by a 28 handicap player":62008 5:5::"* HANDICAPS"::"Each player may choose a handicap between 1 and 28."::"28 corresponds to a ""duffer"", 1 to a very good player" u:"Therefore low handicaps make the course seem easier and high handicaps make it seem more difficult." Ŀ:"At the end of the game the players' handicaps are reassessed according to the Standard Scratch Score and Handicapping Scheme 1983 Details below":62008 4:4::"* ORDER OF PLAY"::"Furthest from the hole plays"::"Flashing name indicates next to play - square containing ball also flashes"::"Name displayed in inverse when ball in hole":62008 6:6::"* HOW TO PLAY"::"When your name is flashing do the following:"::"Look at terrain(undeTrack-Info  R         r your name)"::"Select club from list at bottom of screen"::"Look at direction indicator (points towards North)" Ϫ:"Enter direction of shot on 360 degree compass":" 0 is North":" 90 is East":" 180 is South":" 270 is West (so is -90)":"Other directions between":62008 Ԑ:"* HOW TO PLAY (CONTD)"::"Enter strength 0-10 (need not bea whole number)"::"Putting strength does not have an upper limit":62008 5:5::"* PENALTIES"::"Out of bounds (edge of screen) - 2 penalty strokes"::"Ball in water - 1 penalty drop. Play as if from fairway." ::"* PUTTING"::"If ball ends up next to hole, ""PUTT GIVEN"" appears and the hole is completed automatically with one extra stroke.":"If straight into hole, ""PUTT GIVEN"" does not appear, but ballfalls into hole." 62008 4:4::"* OTHER FACTORS"::"The distance of a shot varies byup to 10%"::"The direction varies within an arc.The size of arc depends on club and strength. E.g. 2 wood at 10 can be very inaccurate.":"Hooks (left) and slices (right) can be seen" :"The terrain affects the strength. You must use an appropriate club, e.g. 2 wood will not get you out of rough."::"Every so often a shot is duffed" 62008 :"* OTHER FACTORS (CONT'D)" :"When in a bunker there is a chance you will not get out at the first attempt"::"When getting out of the rough the length is more variable thanusual" :"Handicaps affect - length of shot - variation in length - wildness of hook/slice - ability to get out of bunkers" 62008 6:6::"* THE 1983 HANDICAPPING SYSTEM"::"Handicaps can change every round"::"First the nett differential is calculated : Actual score - par - handicap (rounded)"::"If this is > 0 your handicap goes up by .2 (or by .1 if it is 5 or under)" :"If < 0 your handicap goes down by an amount for each stroke of differential. The amount dependson the handicap and is as follows:" v" .1 for up to 5 .2 for up to 12 .3 for up to 20 .4 for up to 28" 62008  7:  x"Have you got a printer? ";f$ ye"Do you want the players' entriesto appear on the screen? (""yes"" advised for novices) ";s$ ~F"How many players are there? ";np:np<1np>43710~ >p=1np:p(p,5)=0:"Name player ";(p);p$(p) h"Handicap (1-28) player ";(p);" ";p(p,9 ):p(p,9 )>28p(p,9 )<03725 p 8"No. of holes ";nh:nh<1nh>183730 0:0 tpar=0  l:9 ,9 ;"The groundsman is preparing the hole"::" Please wait a few seconds" 'c=16:x(c),a(c),n$(c):c Pl$=n$(1)+" "+n$(2)+" "+n$(3)+" "+n$(4)+" "+n$(5) 4c=16:t=17:b(t,c):t:c t=17:t$(t):t h=118:h(h):h  Эa1=0:a2=00010000:a3=00100000 :a4=00001000:a5=00000100:a6=00000010:a7=00001010 :a8=01000000@:a9=01010000P *u(16):w=116:u(w):w w=116 +l=07:row:(u(w))+l,row:l w wg$(1)="":g$(2)="":g$(3)="":g$(4)="":g$(5)="":g$(6)="":g$(7)="" &wu$(1)="":u$(2)="":u$(3)="":u$(6)="":u$(5)="":u$(4)="":u$(7)="" / .q=1np:s(q,h-1)=p(q,6):q ^:"HOLE PAR";:q=1np:32 ;p$(q);:q::"---- ---";:q=1np:" ----";:q: gi=1nh:i;6;d(i);:q=1np:10 +(q-1)*5;s(q,i);32 ;:q::i (" ===";:q=1np:" ====";:q :"TOTAL";6;tpar;:q=1np:s(q,19)=p(q,5)+p(q,6):10 +(q-1)*5;s(q,19);:q  h(h) >y=122:x=132 :c(x,y)=4:x:y random=*10 random25020 Tx=122:limit=x:l1=(37%-13 /8*x):l1pmin5250 xpmin=p(q,6):p=q q Oq=1np:p(q,5)=p(q,5)+p(q,6):p(q,6)=0:q  +h1"Press ENTER for next hole";y$ E:y=122:x=132 :c(x,y):u$(c(x,y));:x:y a$="":5600 7:1:0,29;" ":0:1,29;" ":2,29;" ":0,30;" ":244,164:xnorth,ynorth Y0,1;"Hole ";h:1,1;length;" Yds":2,1;"Par ";par q=1np:0,5+5*q;p$(q,14):1,5+5*q;"h";p(q,9 ):3,5+5*q;p(q,5):4,5+5*q;p(q,6):q   a$="pt"5630 Rxh,yh+14:6,3:-6,3:0,-19:5640 xh,yh+1 F-1,0:0,-2:2,0:0,2 C H6p(p,7)=6a$="pt":c=6:5730b I(l$);" club? ";a$ N)c=16:n$(c)=a$5730b Xc:5705I b$"direction ";w$:w$=""5730b c@w=1̱w$:(w$(w))>579ů(w$(w))<45-5730b dw g3dir=w$:dir<-180dir>360h5730b l#"strength ";w$:w$=""5740l m@w=1̱w$:(w$(w))>579ů(w$(w))<46.5740l nw v+str=w$:str>10 a$"pt"5740l  "p(p,7)=05810 ?dmax=-1:q=1np:p(q,7)=05820 ipp3=p(q,3):pp4=p(q,4):p(q,8)=n(pp3,pp4):p(q,8)>dmaxp=q:dmax=p(q,8) q $pp3=p(p,3):pp4=p(p,4) dmax0420  7  6100 +1:0,5+5*p;p$(p) x1=x(pp3):y1=y(pp4) np(p,7)6p(p,7):1:y1-1,x1-1;" ":y1-1,x1-1;" ":0  0  pp3,pp4 p(p,7)5 #p(p,6)=p(p,6)+1 p(p,7)=4   +7:0,5+5*p;p$(p) 6p(p,1)=p(p,3):p(p,2)=p(p,4) hcap=p(p,9 ) dir=dir+dnorth*180/ arc=d(str,hcap)  dir=dir+arc str=e(str,hcap) .c=6str=str/(1.5@-hcap/568) dir=dir/180* dist=str/side*x(c)  dist=dist*b(p(p,7),c) *Jduff=*(118v-3*hcap):duff<1a$"pt"dist=dist/3 /\p(p,7)=2Track-Info  R         bunk=*(118v-3*hcap)/10 :bunk<1dist=0 17p(p,7)=3dist=dist*(*.6+.73333) 44xx=(dist*dir+.5):yy=(dist*dir+.5) ><p(p,3)=p(p,1)+xx:p(p,4)=p(p,2)+yy @ oob=0 Cep(p,3)<1p(p,3)>254p(p,4)<1p(p,4)>1743000 Ia$="pt"5980\ J6x=x(p(p,1)):y=y(p(p,2)):paper=c(x,y) KLpaper:y-1,x-1;"":502:y-1,x-1;"":i=18:.002xn,6+4*i:i:y-1,x-1;"":25:y-1,x-1;"":i=12 2-2:.002xn,6+3*i:i:y-1,x-1;"":.003xD,2:.003xD,20:.003xD,2 L%oob=0xx,yy,-arc*/180 Moob=1xx,yy N<pp3=p(p,3):pp4=p(p,4):x1=x(pp3):y1=y(pp4) O8c(x1,y1)6c(x1,y1):y1-1,x1-1;" " P pp3,pp4 Qq=p:6000p Rduff15976X S7:21,28;"DUFF":.5,-10 :.5,-14:502:w=2831:t=c(w+1,22):t:21,w;u$(t):w:c(x,y) Ty-1,x-1;"":10 :y-1,x-1;"":10 :y-1,x-1;"":10 :y-1,x-1;"":10 :y-1,x-1;"":dthrow=4 U6x579ů(w$(w))<45-6330 w 3dir=w$:dir<-180dir>360h6330 x=09 :t=c(x+1,22):21,x;t;u$(t):x:m$="strength ":21,0;7;m$:6400:x=08:t=c(x+1,22):21,x;t;u$(t):x:w$=""6340 @w=1̱w$:(w$(w))>579ů(w$(w))<46.6340 w +str=w$:str>10 a$"pt"6340  w$=""  0 =13  w$=w$+  6410  \Tf(1)=.1}L:f(2)=.2~L:f(3)=.2~L:f(4)=.2~L ]nh<6:"You haven't really played enoughholes to justify handicap adjustment. However I will give you an idea of what your handicap could be, based on the holes you have played. This is not likely to be very accurate!" bq=1np le(q,1)=s(q,19) q4e(q,11 )=(e(q,1)*18/nh+.5) ve(q,2)=tpar {4e(q,12 )=(e(q,2)*18/nh+.5) *e(q,3)=e(q,11 )-e(q,12 ) e(q,4)=p(q,9 ) (e(q,5)=e(q,3)-e(q,4) e(q,6)=4:e(q,4)20e(q,6)=3:e(q,4)12 e(q,6)=2:e(q,4)5e(q,6)=1 Be(q,7)=2:e(q,5)>0e(q,7)=1 Je(q,7)=1e(q,8)=0:e(q,9 )=f(e(q,6)) PTrack-Info  R         e(q,7)=2e(q,8)=e(q,6)/10 :e(q,9 )=0 6e(q,13 )=e(q,5)*e(q,8)+e(q,9 ) *e(q,14)=e(q,4)+e(q,13 ) 0e(q,14)>28e(q,14)=28 .e(q,14)<0e(q,14)=0 q  nh<67295 #B:" HANDICAP ADJUSTMENTS ====================" %3q=1np:3,8+5*q;p$(q):q &4q=1np:4,8+5*q;"----":q *^5,0;"HOLES":q=1np:x$=nh:7500L:5,8+5*q;x$:q 4h7,0;"SCORE":q=1np:x$=e(q,1):7500L:7,8+5*q;x$:q 9f8,0;"PAR":q=1np:x$=e(q,2):7500L:8,8+5*q;x$:q >r10 ,0;"EXTEND SCORE":q=1np:x$=e(q,11 ):7500L:10 ,8+5*q;x$:q Hp11 ,0;"EXTEND PAR":q=1np:x$=e(q,12 ):7500L:11 ,8+5*q;x$:q R5q=1np:12 ,8+5*q;"----":q \o13 ,0;"GROSS DIFF":q=1np:x$=e(q,3):7500L:13 ,8+5*q;x$:q fm14,0;"HANDICAP":q=1np:x$=e(q,4):7500L:14,8+5*q;x$:q p5q=1np:15,8+5*q;"----":q zn16,0;"NETT DIFF":q=1np:x$=e(q,5):7500L:16,8+5*q;x$:q n18,0;"OLD H'CAP":q=1np:x$=e(q,4):7500L:18,8+5*q;x$:q p19,0;"ADJUSTMENT":q=1np:x$=e(q,13 ):7500L:19,8+5*q;x$:q 5q=1np:20,8+5*q;"----":q o21,0;"NEW H'CAP":q=1np:x$=e(q,14):7500L:21,8+5*q;x$:q  62008 :p=1np p$(p):"----" Te(p,13 )>0m$="Time you booked a lesson with the club professional!" Pe(p,13 )=0m$="Not a bad effort. Everything to play for next time" Oe(p,13 )<0m$="Have you got your application infor the Open yet?" $m$: )p . 62008 K Vx$4 `ex=4-x$ j"e=1ex:x$=32 +x$:e  #-hdist>1p(p,6)=p(p,6)+1:4,5+5*p;p(p,6):21,22;"PUTT GIVEN":502:x=2231:t=c(x+1,22):t:21,x;u$(t):x:7:90102# #/Jl=2080P15:1/l,-7:1/l,-20:l #241:0,5+5*p;p$(p):0 #<,p(p,7)=0:p(p,8)=0 #F 250 # Y!  Track-Info  R         ]] !      Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R         Track-Info ! R!!!!!!!!! Track-Info " R""""""""" Track-Info # R######### Track-Info $ R$$$$$$$$$ Track-Info % R%%%%%%%%% Track-Info & R&&&&&&&&& Track-Info ' R'''''''''